Remax Data

home *** CD-ROM | disk | FTP | other *** search

/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / array.prg < prev next >

Wrap

Text File | 1994-07-06 | 9.0 KB | 624 lines

M.Count = 1 M.Size = 0 SET EXACT ON DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= 1000 COPY RECORD Count TO ARRAY Search FIELDS Lang1 M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO GOTO TOP Count = 1 DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Lang2 M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO GOTO TOP Count = 1 DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Lang3 M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) ERASE Language.dbf CREATE TABLE Language.dbf ; (Langauge C(30)) USE Language APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER NOUPDATE PRIVATE M.Records COUNT TO M.Records CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 SET EXACT ON DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Region M.Count = M.Count + 1 String = (Search[1,1]) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Region.dbf ; (Region N(3)) USE Region APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Office M.Count = M.Count + 1 String = Search[1,1] Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Office.dbf ; (Office N(3)) USE Office APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Title M.Count = M.Count + 1 String = UPPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) CREATE TABLE Title.dbf ; (Title N(3)) USE Title APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Country M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) CREATE TABLE Country.dbf ; (Countries C(20)) USE Country APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER GOTO TOP M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Spec1 M.Count = M.Count + 1 String = UPPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO GOTO TOP M.Count = 1 DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Spec2 M.Count = M.Count + 1 String = UPPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) CREATE TABLE Spec.dbf ; (Spec C(5)) USE Spec APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Zip M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) CREATE TABLE Zip.dbf ; (ZipCode N(12)) USE Zip APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Offname M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Office.dbf ; (Office_Name C(30)) USE Office APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER DIMENSION Magic(1,1),Search(1,1) M.Count = 1 M.Size = 0 ? 'Position' DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Posistion M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Position.dbf ; (Pos C(30)) USE Position APPEND FROM ARRAY Magic CLOSE DATABASES PRIVATE M.Records USE ROSTER COUNT TO M.Records DIMENSION Magic(1,1),Search(1,1) M.Count = 1 M.Size = 0 ? 'OffAddress1' DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Offadd1 M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Address.dbf ; (Address C(30)) USE Address APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER DIMENSION Magic(1,1),Search(1,1) M.Count = 1 M.Size = 0 ? 'City' DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS City M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE City.dbf ; (City C(17)) USE City APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER DIMENSION Magic(1,1),Search(1,1) M.Count = 1 M.Size = 0 ? 'State' DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Rostersta M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE State.dbf ; (State_Prov C(30)) USE State APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER DIMENSION Magic(1,1),Search(1,1) M.Count = 1 M.Size = 0 ? 'License' DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS License M.Count = M.Count + 1 String = Search[1,1] Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE License.dbf ; (Year N(4)) USE License APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER DIMENSION Magic(1,1),Search(1,1) M.Count = 1 M.Size = 0 ? 'Join' DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Join M.Count = M.Count + 1 String = Search[1,1] Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Join.dbf ; (Year N(4)) USE Join APPEND FROM ARRAY Magic CLOSE DATABASES